home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Special 18 / AMIGAplus Sonderheft 18 (1999)(ICP)(DE)[!].iso / Patch / MadTVHD / Install_Game < prev    next >
Text File  |  1998-04-16  |  2KB  |  80 lines
  1. (set GameDir "MadTV")
  2.  
  3. ;try to figure out a place where the user usually installs his games
  4. (if (exists "Games:" (noreq) )
  5.     (set @default-dest "Games:")
  6.     (if (exists "SYS:Games" (noreq) )
  7.         (set @default-dest "SYS:Games")
  8.         (if (exists "Work:Games" (noreq) )
  9.             (set @default-dest "Work:Games")
  10.             (if (exists "JEUX:" (noreq) )
  11.                (set @default-dest "JEUX:")
  12.                (set @default-dest "SYS:")
  13.             )
  14.         )
  15.     )
  16. )
  17.  
  18. ;ask the user to select a directory to install the game into
  19. (set default-dest
  20.      (tackon (askdir (prompt "Where would you like " @app-name " installed?\n"
  21.                              "A drawer called " GameDir " will be created.")
  22.                      (help @askdir-help)
  23.                      (default @default-dest)
  24.                      (newpath)
  25.              )
  26.      GameDir
  27.      )
  28. )
  29. (set @default-dest default-dest)
  30.  
  31. ;create the selected directory
  32. (makedir @default-dest
  33.          (infos)
  34. )
  35.  
  36. ;create the saves directory
  37. (makedir (tackon @default-dest "saves")
  38.          (infos)
  39. )
  40.  
  41. (copyfiles (source "Game")
  42.            (dest @default-dest)
  43. )
  44.  
  45. (copyfiles (source "Game.icon")
  46.            (dest @default-dest)
  47.        (newname "Game.info")
  48. )
  49.  
  50. (askdisk
  51.     (prompt    ("\n\n\n\n\n\nPlease insert %s disk 1 in any drive" @app-name))
  52.     (dest        "MTV1")
  53.     (help        "Insert disk in any floppy drive\nor you'll wait for a while!")
  54. )
  55.  
  56. (copyfiles (source "MTV1:")
  57.            (dest @default-dest)
  58.        (files)
  59.        (pattern "#?")
  60. )
  61.  
  62. (askdisk
  63.     (prompt    ("\n\n\n\n\n\nPlease insert %s disk 2 in any drive" @app-name))
  64.     (dest        "MTV2")
  65.     (help        "Insert disk in any floppy drive\nor you'll wait for a while!")
  66. )
  67.  
  68. (copyfiles (source "MTV2:")
  69.            (dest @default-dest)
  70.        (files)
  71.        (pattern "#?")
  72. )
  73.  
  74. (delete (tackon @default-dest ".info"))
  75. (delete (tackon @default-dest "install.info"))
  76. (delete (tackon @default-dest "add21"))
  77.  
  78.  
  79.  
  80.